home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / PACKAGE6 / MAXSTRIN.DOC < prev    next >
Text File  |  1990-07-25  |  1KB  |  36 lines
  1. ----------------------------------------------------------------------------
  2. MaxStringLength
  3. ----------------------------------------------------------------------------
  4.  
  5. declaration:      function MaxStringLength:
  6.                               integer;
  7.  
  8. purpose:          Returns the MaxStringLength.
  9.  
  10. preconditions:    none
  11.  
  12. postconditions:   none
  13.  
  14. special cases:    none
  15.  
  16. example:          var
  17.                     Name:
  18.                       TypeString;
  19.                     LastKey:
  20.                       TypeKey;
  21.  
  22.                   begin
  23.                     .
  24.                     .
  25.                     .
  26.                     write (output,'You may not enter a name with more ');
  27.                     write (output,'than ', MaxStringLength, ' characters.');
  28.                     write (output, Enter the Name :  ');
  29.                     ReadLnString (Name, MaxStringLength, LastKey)
  30.                     .
  31.                     .
  32.                     .
  33.                   end
  34.  
  35. ----------------------------------------------------------------------------
  36.